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Guida per l’input dei programmi versioni 
C64 


Notate che i listati contengono 'pa¬ 
role' racchiuse tra parentesi graffe 
I ). Tali parole rappresentano carat¬ 
teri di controllo come mostrato nel 
sottostante riquadro. Se sono pre¬ 
cedute da un numero, questo indi¬ 
ca il numero di volte che quel tasto 
deve essere premuto. Se il simbolo 
è sottolineato deve essere premuto 
contemporaneamente a SHIFT men¬ 
tre se è racchiuso da [()] deve esse¬ 


re premuto contemporaneamente 
al tasto COMMODORE. Inoltre, se 
tra parentesi si trova un carattere 
alfabetico "solitario"’ questo dovrà 
essere premuto contemporanea¬ 
mente al tasto CONTROL. 

Con questo sistema di codifica, sa¬ 
rà molto più agevole copiare i lista¬ 
ti senza faticose e dubbie interpre¬ 
tazioni di caratteri grafici e di con¬ 
trollo del cursore o dei colori. 


{CLR} 
{HOME} 
(SU) " 
{GIU* } 
{SIN} 
{DES} 

{RVS} 
{OFF} 

{BLK} 

{WHT} 
{RED} 


SMIH 


ClB HOMI 




ClB HOME 



[SMIM 



SMlM gCrCBSB =? 

M&M • - : 




{CYN} 
{PUR} 
{GRN } 
{BLU} 
{YEL} 
[< 1 >1 
( < 2 > ) 
(< 3 > I 
l < 4 > ] 
l<5>) 
l<6>] 


CIBI 

rn 

■■■ 

[ CIBI 

I S J 

■■i 


[ CIBI 

JTj 


■■ 


| 7 ] 




le] 


QD 

□ a 

□ a 

QD 

QQ 

□ a 



(<7> 

m 

[<8> 

□ 

{FI} 

□ 

{F 2 } 

ss 

{F3 } 

□ 

{F4 } 

15 

{F5} 

e 

{F6 } 

ol 

{F7 } 

E 

■1 

{F8 } 


QO 

□ 

□ □ 

■ ■ 
■ ■ 

Dì 

■1 

m 

a 

KB 

■ 

KB 

U 

KB 

II 

KB 

51 

KWÀ 

II 

CZD 

■ 


Per ricevere gli arretrati di ày'/j'J compilare il seguente tagliando: 

K 

_ Compilare ed inviare in busta chiusa a: 

J.50/1 viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 
Indirizzo - 


CAP 


Città 


Prov 


Desidero ricevere i seguenti numeri arretrati di 


'M, ìy'J’J dedicato a. 


a L. 2 000 cad per un totale di L. 


Anno 
Anno - 


a mezzo 


□ assegno allegato 


□ contanti allegati 


K 
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Stop Bus 


Se non l’hai già fatto, memorizza 
STOP BUG e salvalo su nastro o di¬ 
sco. 

Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: rem ’’ seguita da un nume¬ 
ro, detto checksum; NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 


che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell’angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me? per PRINT). 

Usando STOP BUG tieni conto del 
fatto che gli spazi non influiscono 
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sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vensono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 


Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE, e per riatti¬ 
varlo batti SYS 40704. 


STOP BUG per C64 

1 00 POKE5 5,0 :POKE56,PEEK(56)-1 :R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO-" 

1 10 FORI=RTOR+l32 :READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A :NEXT 

130 IFCK022689THENPRINT" {GIU' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R) :PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
0.":NEW 

200 DATAI 73,36,3,201 ,32,20 8,1 , 96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 

2 20 DATA32,1 41 ,36,3,1 69,999,141 ,37,3 

2 30 DATAI 6 9,0,1 33,254,96,32,87,241 ,1 33 
240 DATA251 ,1 34', 252,1 32,253,8,201 ,1 3,240 
2 50 DATAI 7,201 ,32,240,5,24,1 01 ,2 54,1 33 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,2 55,1 65,21 4,1 41 ,251 
2 80 DATA3,206,251 ,3,169,0,133,216,169 
2 90 DATAI 9,32,21 0,255,169,1 8,32,21 0,255 
300 DATAI 69,58,32,21 0,2 55,1 66,2 54,1 69,0 
310 DATAI 33,254,1 72,33,999,1 92,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA2 51 ,3,1 33,21 4,76,55,999 
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seconda parte 


ft 

O» 

x* 

H II fantasma del teatro - 


Sei pronto a far' scorrere veloce¬ 
mente le tue dita sulla tastiera del 
C64? Se sì, questa settimana puoi 
continuare la digitazione de! FAN¬ 
TASMA DEL TEATRO. Ricordati 
però, prima di cominciare, di cari¬ 


care in memoria la prima parte del 
nostro Adventure Game, che puoi 
trovare su Papersoft della scorsa 
settimana. Ancora soltanto 7giorni 
ed avrai il programma completo! 


4500 

451 o 
4520 

4525 

4530 

4535 

4540 

4550 

4560 

4570 

4580 
4590 
4600 
461 0 
4620 
4625 
4627 
4630 
4640 
4650 

4660 

4670 

4690 

4800 
4805 
481 0 


POSSO: SONO 


IFNC>NMTHENPRINT"NON 
: GOTO!00 
IFNU=0THEN730 

IFNU=11THENPRINT"NON CI RIESCO: 

A !" :GOTOl00 

IFNU=35THENPRINT"NON POSSO, E' 

":GOTOl00 

IFNU=49THENPRINT"IN CHE MODO?":GOTOl00 
IFNU>56THEN720 

IFNU> 53THENPRINT"MI CREDI MATTO?":GOTOl00 
IFNU>4 6THENPRINT" I^MPOSS IBILE PER LE MIE 
1 00 

IFNU>32THEN720 

IFL(NU)=0THENPRINT"L'HO GIÀ' CON 


GIÀ' SOVRACCARICO!" 

: rem 214 
:rem 50 
E' INCHIODATA A TERR 

: rem 182 
LEGATA MOLTO IN ALTO. 


: rem 
: rem 
: rem 
: rem 
FORZE." 
: rem 
: rem 

ME.":GOTOl00 

: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 


1 1 2 
1 

11 6 
234 
GOTO 
11 5 
1 08 

50 
25 
1 26 
50 
1 03 
102 
234 
209 
75 
56 


IFNU= 3THENL(49)=0 
L(NU)=0:NC=NC+1:GOTO700 
IFNU=0THEN730 
IFNU>32THEN710 
IFL(NU)THEN750 
IFNU=7THENGI=0:NM=5 
IFNU=15THENLA=0 

IFNU=17AND(L(3)=SEORL(3)=0)THEN4670 : rem 

IFNU=5ANDSE=7THENL(5)=99:L(56)=99:GOTO4690 : rem 
IFNU=31ANDSE=24THENPRINT"HO UN'IDEA!":L(31)=98:GOSUB 
34 00 :NC=NC-1 : GOTO!00 : rem 42 

L(NU)=SE:NC=NC-1 :GOTO700 :rem 230 

PRINT"LA METTO NELLA BIRRA.":PB = -1 :L(17)=99 :NC = NC-1 : 

GOTO8130 : rem 205 

PRINT"IL TOPO PRENDE IL FORMAGGIO E SCAPPA!":GOSUBl7 
00:NC=NC-1:GOTOl00 : rem 132 

IFL ( 1 ) ANDL ( 1 ) OSETHEN81 0 :rem 164 

IFNU = 0THEN2 0 : rem 1 

IFNU=33THEN4 870 : rem 164 
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61 TEXT 50,95,"{A}P.P{B}IZZO",3,2,8 

: rem 

89 

62 TEXT 32,125,"{A}N.B{B}ERTUCCIO",3,2,8 

: rem 

1 34 

63 PAUSE 5 

: rem 

28 

65 EXEC TITOLO 

: rem 

107 

67 TEXT 35,20,"{A}{RVS}M ASTE R",3,8,8 

: rem 

30 

69 TEXT 52,100,"{A}{RVS}M I N D",3,8,8 

: rem 

1 70 

71 TEXT 48,175,"{A}MCMLXXXV",1,1,8 

: rem 

248 

72 PAUSE 5 

: rem 

28 

73 GOTO900 

: rem 

60 

695 PROC TITOLO 

: rem 

1 79 

700 BLOCK 0,0,200,2U0,1 

: rem 

103 

710 BLOCK 10,10,148,188,2 

: rem 

229 

720 FORX=lTOT98STEP1 0 

2 rem 

40 

730 TEXT X,2,"*",3,1 ,8 

2 rem 

79 

740 NEXT 

2 rem 

21 8 

741 FORY=2T0190STEP1 0 

2 rem 

37 

742 TEXT 151,Y,"*",3,1,8 

2 rem 

184 

743 NEXT 

2 rem 

221 

750 FORX=l91TOlSTEP-10 

2 rem 

81 

760 TEXT X,190,"*",3,1,8 

2 rem 

1 86 

770 NEXT 

2 rem 

221 

771 FORY=182TO2STEP-10 

2 rem 

86 

772 TEXT 1 ,Y,"*",3,1,8 

2 rem 

85 

773 NEXT 

2 rem 

224 

775 END PROC 

2 rem 

1 74 

900 NRM:PRINT"{HOME}{CLR}{WHT}":COLOURl 2,0 

2 rem 

9 

910 T=0: DIMM(30,8): DIMA(6) :DIMB(6) :DIMC(6): 

DIMC$(6);DIMM$ 

(30,8):V=54272 

2 rem 

21 9 

91 2 FORF = 0TO6: A(F)=0:B(F)=0:C(F)=0:NEXT 

2 rem 

8 

915 FORF=0TO30 

2 rem 

63 

916 FORP=0TO8 

2 rem 

31 

917 M ( F, P ) = 0 : M$ ( F, P ) = " " 

2 rem 

1 73 

918 NEXTP 

2 rem 

49 

920 NEXTF 

2 rem 

32 

980 EXEC SCHEMA! 

2 rem 

1 68 

990 EXEC SCHEMA3 

2 rem 

1 71 

1000 EXEC SCHEMA4 

2 rem 

203 

1 002 PRINT"[<7>] {RVS}";AT(16,10)"VUOI LE"; 

2 rem 

1 68 

1003 PRINTAT(14,12)"ISTRUZIONI ?"; 

2 rem 

9 

1004 PRINTAT(16,14)"[<6>] S / N {WHT}" 

2 rem 

226 

1005 GETA$:IFA$=""THENl005 

2 rem 

1 75 

1 006 IFA$ <>"S"ANDA$<>"N"THENl005 

2 rem 

5 

1 007 IFA$ = "S"THEN EXEC ISTRUZIONI 

2 rem 

4 

1008 IFA$="N"THENEXEC SCHEMA4 

2 rem 

1 97 

1010 PRINT"[<7>]{RVS}";AT(14,12)"QUANTE CIFRE"; :rem 

10 

1015 GETY$:IFY$=""THENl015 

2 rem 

225 

1016 Y=VAL(Y$):IFY<30RY>6THEN1015 

2 rem 

4 

1017 PRINTAT(17,14)"*";Y;"*{WHT}";:PAUSEl 

2 rem 

9 

1020 FORH=1TOY 

2 rem 

92 

1030 M(0,H)=INT(9*RND(1)) 

2 rem 

72 

1090 NEXT 

2 rem 

9 
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1 1 00 

EXEC SCHEMA! 

: rem 

201 

ino 

EXEC SCHEMA2 

: rem 

203 

1 1 42 

Z=64+Y 

: rem 

77 

1 1 43 

FOR K=65TOZ:G=K-64:Q=K-63 

: rem 

233 

1 1 44 

K$=CHR$(K):W=26+G 

: rem 

1 87 

1 1 45 

PRINTAT(W,2)K$:FCOL 2,W,1,1,Q:NEXT : rem 

37 

1 1 46 

PRINTAT(35,2)"[< 3>]X":PRINTAT(37,2)"[< 6>]Y";"{WHT}"; 



: rem 

1 61 

1 1 50 

GOTO 5000 

: rem 

1 97 

5000 

CX=0:CY=0:C=0 

: rem 

250 

5003 

FORF=lTOY:A(F)=0 :B(F)=0:C(F)=0 : 

D(F)=0:C$(F)="":NEXTF 



: rem 

21 7 

5005 

S=T+1 :IFS = 31THENl 4000 

: rem 

235 

5006 

PRINT"{WHT}";AT(3 , 7)"TENTATIVO{ 

2 SP AZ I} * {CYN } 11 ; 

S ; " 


{WHT} 

: rem 

1 54 

501 0 

Z = 6 4 +Y 

: rem 

75 

501 5 

FOR K=65TOZ:G=K-64:Q=K-63 

: rem 

235 

501 7 

IFD (G)=GTHEN5076 

: rem 

1 89 

5020 

K$ =CHR$(K):U=(G-1)*2+9 

: rem 

146 

5025 

PRINTAT( 3, U ) K$ ; " = " ; 

: rem 

89 

5026 

FCOL U,3,1,1,Q 

: rem 

220 

5030 

GETC$(G) :IFC$ (G)=""THEN5025 

: rem 

235 

5040 

IFASC(C$(G))=32THEN5073 

: rem 

31 

5045 

IFASC(C$(G))<480RASC(C$(G))>57THEN5025 : rem 

1 53 

5060 

C(G)=INT(VAL(C$(G))) 

: rem 

82 

5070 

IF C(G)<0 OR C (G)>9 THEN5025 

: rem 

144 

5071 

D (G) =G 

: rem 

45 

5073 

PRINTAT(6,(G-1)*2+9)C$(G) 

: rem 

89 

5074 

IFASC(C$(G))=32THEND(G)=32 

: rem 

21 3 

5075 

IFASC(C$(G))=32THENC$(G)="" 

: rem 

21 6 

5076 

NEXT K 

: rem 

92 

5077 

FORF=lTOY 

: rem 

106 

5078 

IFD(F)=32THEN5010 

: rem 

21 3 

5079 

NEXTF 

: rem 

90 

5081 

PRINT"[< 3>]";AT(10,12)"VA BENE 

?";AT(10,14)"{GRN}SI 


{RVS} FI "; 

: rem 

79 

5082 

PRINTAT(10,16)"[<6>] NO {RVS} F 

3 {WHT}”; :rem 

1 23 

5083 

GETN$:IF N$=""THEN5083 

: rem 

221 

5084 

IFN$ < > " { Fi }"ANDN$O"{F3}"THEN5083 : rem 

157 

5085 

IFN$ = "{Fi }"THEN64 00 

2 rem 

21 0 

5086 

IFN$ = "{F3 }"THEN60 00 

2 rem 

208 

5090 

T=T+1 

2 rem 

1 5 

5092 

FORF=1TOY:M(T,F)=C(F) :M$(T,F)=C$(F) :NEXTF : rem 

21 6 

5096 

GOTOl1000 

2 rem 

255 

6000 

FORB = lT02 3 

2 rem 

1 01 

601 0 

PRINTAT(1,B)"{ 23 SPAZI}"; 

2 rem 

88 

6020 

NEXTB 

2 rem 

73 

6030 

PRINTAT(3,7)"[<3>]ALLORA RIPROVA{WHT}"; :rem 

202 

6035 

PAUSE2 

2 rem 

1 26 

6038 

PRINTAT(3,7)"{ 14 SPAZI}"; 

2 rem 

89 

6040 

GOTO50 00 

2 rem 

200 


8 



5660 

5670 

5700 

5705 

571 0 

571 5 
5720 
5730 
5750 

5760 

5770 

5800 

581 0 

5820 

5830 

5900 
5905 
591 0 
5920 
5940 


5950 

5960 

5970 

5980 

5990 

5995 

5996 

5997 

5998 

5999 


6000 

6010 

6020 

6030 

6040 

6050 

61 00 
61 50 


IFNU= 57THENL(57)=98:L(58)=22:GOTO700 : rem 129 

GOTO710 : rem 163 

IFNU=0THEN730 :rem 52 

IFNU=41THENPRINT"SI MUOVEGOSUB8180:L(40)=15:L(41) 
=98:GOSUB2500:GOTOl00 :rem 70 

IFNU=44ANDL(58)=22ANDPP=0THENPP = -1 :AG=0:GOSUB3300 :GO 
TO740 :rem 41 

IFNU=4 4THEN770 : rem 118 

IFNU=53THEN5250 : rem 160 

GOTO770 : rem 166 

IFNU=35ANDSE=24ANDL(31)=5THENGOSUBl4 :PRINT"ERA PESAN 
TE!":L(31)=24:GOTOl00 : rem 134 

IFNU=35AND(SE=50RSE=24)THEN770 : rem 128 

GOTO770 : rem 170 

PRINT"BENE, QUANTI MINUTI? ";:GOSUB300:MS=VAL(1$) 

: rem 139 

IFMS<lORMS>30THENPRINTCHR$(158)"MINIMO 1, MASSIMO 30 
MINUTI.":GOTOl00 : rem 102 

M=M+MS: IFM>59THENM=M-60 :H=H+1 :rem 47 

GOSUB11 :PRINTCHR$(158)"PASSA DEL TEMPO...":GOSUBl5:G 


OTOIOO : rem 

IFL(1)THEN810 : rem 

IFNU=0THEN730 :rem 

IFNU=43THEN5998 :rem 

IFNU=480RNU=22THEN5995 :rem 

IFNU=23THENPRINT"DICE :":PRINT"TEATRO{SPAZI}HO 
{ 2 R}OR{SPAZI}- POSTO UNICO £ 


IFNU=24THEN8550 

IFNU=25THENPRINT"-AMLETO: ESSERE 
TOl 00 

IFNU=26THEN8500 


2500.":GOTOl00 

: rem 
: rem 

O NON ESSERE.. 

: rem 
: rem 


tl 


1 73 
243 
59 
1 79 
1 55 


1 28 
1 69 
: GO 
1 69 
1 68 


IFNU=27THENPRINT"DICE: 'ORA PUOI SFONDARE 
E!'":GOTOl00 : rem 

GOTO8 60 : rem 

M$=STR$(M) : IFM= 0THENM$ =CHR$(157)+"IN PUNTO": rem 
IFM=1THENM$=" UN MINUTO" : rem 

PRINTCHR$(158)"SONO LE"H"E"M$".": GOTO!00 : rem 

PRINT"OGGI: AMLETO DI W. SHAKESPEARE." : rem 

IL{SPAZI}FANTASMA{SPAZI}DEL 


SULLE SCEN 
21 2 
1 74 
48 
1 99 
1 67 
1 90 


PRINT"SUBITO DOPO: 
{SPAZiTTEATRO DI{ 2 SPAZI}P.G. 


FUSCO.": GOTO100 

: rem 


IFNU=0THENPRINT"DOVE?": GOTO!00 
IFNU=3 40RNU=3 60RNU = 4 6THEN4 400 
IFNU=38THEN4460 

IFNU= 4 0ORNU = 50ORNU = 51THENI$ = "N":GOTO4300 
IFNUO48THEN720 

PRINT"EHI, C'E' UN PASSAGGIO! GUARDA DOVE 
!":SE=12 :GOTOl00 

PRINT"MI SPIACE, NON LO SO FARE.":GOTOl00 
IFNU=0THEN730 
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:rem 86 
: rem 10 5 
: rem 159 
:rem 14 
: rem 170 
SONOFINITO 
:rem 87 
: rem 7 
:rem 52 
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6160 IFNU<>4 9THEN840 :rem 177 

6170 IFL(3)THENPRINT"NON HO NULLA DA BEREGOTO!00 

:rem 128 

6180 PRINT"GLU... GLU_ ":L(3)=99 :L(19)=0 :L(49)=99 :IFPBTH 

EN6240 : rem 180 

6190 GOTOl00 :rem 154 

6200 IFNU=0THEN730 :rem 48 

6210 IFNU05ANDNU01 7THEN760 :rem 206 

6220 IFL(NU)THEN750 : rem 100 

6230 IFNU= 5THENPRINT"CHOMP!":L(5)=99:NC = NC-1:GOTOlOO 

:rem 61 

6240 PRINT"GLOM!":GOSUBl5 :PRINT"CHE SONNO...":GOSUBl5:MS = 
30:GOTO5820 :rem 91 

6250 IFL(10)=0THENPRINT"LA PISTOLA E' SCARICAGOTOl00 

:rem 132 

6260 IFL(29)THENPRINT"E CON CHE COSA? SONO DISARMATO !":GO 

TOl00 :rem 199 

6270 PRINT"BANG!":GOSUB8000:GOSUB8110:L(10)=0:L(29)=99 

: rem 117 

6280 PRINT"MI DISPIACE... NON HO UNA BUONA MIRA!":GOTOl 00 

:rem 172 

6300 IFSE=3ANDL(1)=2ANDHM<691THEN8950 :rem 185 

6310 IFSE=18THENSE=17:GOTO700 :rem 13 

6320 GOTO720 :rem 157 

6350 IFSE=11ORSE=l20RSE=240RSE=2 50RSE=16THEN4005: rem 251 
6360 IFNU=0THEN770 : rem 59 

6370 GOTO850 :rem 166 

6400 A=A+1:IFA>8THENPRINT"SONO STUFO DELLE TUE RICHIESTE 
DI AIUTO!GOTOl00 :rem 221 

64 0 5 IFSE=3ANDHM< 691THENPRINT"SAREBBE BENE NON FARSI NOTA 
RE TROPPO.GOTOl00 :rem 211 

6410 IFSE=19ANDNO=l9THENPRINT"NON USCIRÒ' PIU' DI QUI! B 

ATTI 'FINE'GOTOl00 : rem 95 

6415 IFSE=16ANDH<12THENPRINT"PRIMA O POI QUALCUNO L'APRIR 
A'.":GOTOl00 : rem 120 

6420 IFSE=11ANDL(7)=0ANDNOTGITHENPRINT"CHE SI FA CON UN G 
UANTO?":GOTOl00 :rem 1 

6430 IFSE= 1 2ANDL (18) ANDL ( 1 8) 04ANDL (18)01 2THENPRINT"BATT 
I PURE 'FINE'.":GOTOl00 :rem~124 

6440 IFSE=23THENPRINT"QUI C'E' SO{ 2 T}0 QUALCOSA!GOTOl 
00 : rem 115 

6450 IFSE=90RSE=1lORSE=l50RSE=22THEN6490 :rem 252 

6460 IFSE=16ORSE>20THENPRINT"LEGGI ATTENTAMENTE LE DESCRI 
ZIONI.":GOTOl00 : rem 236 

6470 IFRND(1)<.5THENPRINT"FA' FUNZIONARE IL CERVELLO!":GO 
TOl00 :rem 170 

6480 PRINT"CI SONO MOLTI OGGETTI UTILI...":GOTOl00 

: rem 155 

64 90 PRINT" I_0 PENSO CHE BISOGNEREBBE GUARDARE BENE . " : GOTO 
1 00 : rem 

6500 IFL(4)THENPT=-1 :GOT0610 :rem 

10 


1 5 
1 63 



651 0 

8000 
801 0 
801 5 

8020 

8025 

8030 

8035 

8036 
8050 
8060 

8070 
81 00 
81 1 0 

81 1 5 
81 20 

81 25 
81 30 

81 50 
81 60 
81 70 

81 80 
81 90 

8200 

821 0 


8220 

8300 

831 0 
8320 

8330 

8335 


SERVA DA 
:rem 227 
:rem 100 
: rem 240 


PRINT:PRINT"FUMARE{SPAZI}FA{SPAZI}MALE. TI 
LEZIONE.":G0T08 90 0 

S = 542 72 :FORN=0TO2 3 :POKES + N,0 :NEXT:RETURN 
GOSUB8000:POKES+6,240 
FORQ=1T02 500STEP10 :POKES,QAND2 55 :POKES+1 ,Q/2 56 :POKES 
+4,17:NEXT:GOSUBl6 :rem 205 

FORQ=2 500TOlSTEP-10 :POKES,QAND255 :POKES + 1 ,Q/256:POKE 
S + 4,17 :NEXT:POKES+4,16 :rem 131 

GOSUB8000 :RETURN treni 49 

GOSUB8000:PRINT"CRASH !" : rem 48 

POKES + 1,100:POKES+6,249 :POKES + 4,129:GOSUBl4 :POKES + 4, 
128:G0SUB15:GOSUB8000 :rem 217 

RETURN : rem 177 

GOSUB8000 : rem 21 

POKES + 1 9,15 :FORQ=2 55T01STEP-1 :POKES+l5,Q:POKES+l8,17 
:NEXT:POKES + 18,16 : rem 58 

GOSUBl4:GOT08110 : rem 241 

GOSUB8000:PRINT"SMASH!" : rem 57 

POKES,80 :POKES+1 ,3 :POKES + 6,250 :POKES + 8,150 :POKES + 1 3, 
250 :rem 38 

POKES+22,1 80 : POKES+23,2 : POKES+24,31 treni 44 

POKES+4,129:POKES+11,129:GOSUBl4:POKES+11,128:POKES+ 
4,128:GOSUBl5 :rem 182 

GOSUB8000:POKES+2 4,15 :RETURN : rem 17 

GOSUB8000:POKES + 1,200 :POKES + 5,8 :POKES+4,17:POKES+4,1 
6:GOSUB8000:GOTOl00 :rem 77 

GOSUB8000:PRINT"ST{ 3 R}AP!" : rem 240 

POKES+1,2:POKES+6,244 :rem 238 

FORQ= 1 T0240STEP5:POKES,Q:POKES + 4,129 :NEXT:POKES + 4,12 
8:GOSUB8000:RETURN : rem 51 

GOSUB8000:POKES,50 :POKES+1,1 :POKES+4,128 :rem 189 

POKES+5,176:POKES+6,248:POKES+4,129:GOSUBl5:POKES+4, 
128:GOSUB8000:RETURN 

GOSUB8000:PRINT"SENTO UNA PENDOLA SUONARE. 

LA{ 2 SPAZI}ME{ 2 Z}ANO{ 2 T}E!" :rem 31 

POKES + 1 ,140:POKES+5,10:POKES + 15,30 :FORL=1TOl2:POKES + 

4,21 : rem 122 

FORT=lTOl200:NEXT:POKES+4,20:GOSUBl4:NEXT:GOSUB8000: 
RETURN : rem 4 9 

PRINTCHR$(147)"GULP!":PRINT"VEDO UN FANTASMA ENTRARE 
NELLA STANZA.":GOSUBl5 : rem 38 

PRINT"ANCHE LUI MI HA VISTO !":GOSUBl6 : rem 92 

IFL(14)=0THENPRINT"URLA: 'ODIO{SPAZI}AM...":GOTO8720 

: rem 7 

IFLA=0THEN8720 :rem 87 

PRINT:PRINT"MI DICE:" :rem 208 


:rem 230 
. SCOCCA 
: rem 


8340 PRINT:PRINT"-SALVE, YORICK ! VECCHIO SPETTRO, HAI UN 
LENZUOLO NUOVO !" : rem 176 

8345 GOSUBl6:PRINT" SAI, STAVOLTA NON HO UCCISO NEANCHE U 
N{ 2 SPAZI}INTRUSO.":GOSUBl6 :rem 29 
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8350 PRINT" AH, SE RITROVASSI CIO' CHE HO PERDUTO, 

{ 2 SPAZI}ME NE ANDREI DI QUI!" :rem 177 

8355 GOSUBl 6 : IFL ( 7) OOTHENPRINT" ORA DEVO SPARIRE. ADDIO! 

":GOTOlOO : rem 221 

8360 PRINT" MA TU HAI IL MIO GUANTO!":PRINT" E NON SEI Y 
ORICK!":L(7)=99 :GOSUBl 6 :rem 128 

8365 PRINT" CHIUNQUE TU SIA, TI SONO GRATO. ORA LA- SCERO 
' QUESTO TEATRO "; :rem 108 

8370 PRINT"DOVE MORII DOPO A- VER VISTO PER SEIMILA VOLTE 



L'AMLETO.":GOSUBl6 

: rem 

236 

8372 

GOSUBl6 

: rem 

1 87 

8375 

PRINT" PRENDI QUESTA LETTERA, MA LEGGILA 

SOLO 



{ 2 SPAZI}QUANDO SARAI IN STRADA!" 

: rem 

1 05 

8380 

L(26) =26 :GOSUBl6 

: rem 

1 58 

8385 

IFL(2)THENPRINT" PECCATO CHE NON HAI UNA 

MATITA!" 

2 GO 


T08355 

: rem 

79 

8390 

PRINT" TI DISEGNO UNA MAPPA SUL LENZUOLO, 

MA 



{ 3 SPAZI}PER USCIRE DOVRAI AVERE "; 

: rem 

105 

8395 

PRINT"CON TE QUALCHE{ 2 SPAZI}ALTRO SUGGERIMENTO. 

":M 


P=-l:L(25)=99 :L(27)=13 

: rem 

47 

8400 

GOSUBl6:G0T08355 

: rem 

251 


W “ci vediamo ^ 



A 

tv Vìsitors 


Joystick 

Eccoti un simpatico 3 ioco "arcade- 
style" sviluppato sul tema delle 
guerre stellari. Sei un eroe spaziale 

che deve affrontare le flotte del Si¬ 
gnore della Notte, distruggerle e 
raggiungere la fortezza volante per 
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colpire l'occhio che gira veloce¬ 
mente al suo interno, ed uccidere 
quindi il malvagio Signore. 

Vi sono quattro tipi di astronavi 
nemiche, tutte con caratteristiche 
diverse,- la loro velocità aumenta 
man mano che si procede nel gio¬ 
co. Le astronavi abbattute fruttano 
50 punti, ma se ne perdono 3 ogni 
volta che esse distruggono duran¬ 
te il loro cammino una stella. Al¬ 
l'inizio del gioco hai a disposizione 


4 basi, che aumentano di una unità 
ogni 2 quadri superati. Le basi si 
possono perdere-. 

V Quando un'astronave nemica 
termina il suo percorso,- 
2) Quando scadono i 5 secondi 
che hai a disposizione per colpire 
l'occhio della fortezza volante. 

Il miglior sistema per conoscere 
questo appassionante gioco è 
però di... giocarlo! 


************************ 
* SCHERMATA INIZIALE * 


: rem 

p 

: rem 

90 

: rem 

1 0 

: rem 

92 

: rem 

25 

: rem 

63 

: rem 

102 

: rem 

11 

NEXTY 

: rem 

1 5 


4 REM 

5 REM 

6 REM ************************ 

10 PRINT"{CLR}":POKE53280,2 :POKE53281 ,6 
15 V=542 72:POKEV+5,68 :POKEV+6,70 :POKEV+4,33 
20 FORI = l 02 4T0202 3: POKE1 + 54272,2 
30 POKEI,148:NEXTI 

40 FORY=1 236T01251STEP2:FORT=1T0250 :NEXTT: READD 


50 FORH = 1 4 02TO1403 : READW:POKEV+ 24,15 :POKEH+54272,1 :POKEH, 
W:POKEV+24,0:NEXTH :rem 112 

60 FORK=l511TOl535STEP2:IFK=1523THEN65 :rem 50 

63 FORKK=l T0400 :NEXTKK:READFF:POKEV+24,15 :POKEK+542 72,1 :P 
OKEK,FF:POKEV+24,0 : rem 182 

65 NEXTK : rem 245 

70 FORTT=l 630TO1 657:FORHH=lTOl00 :NEXTHH:READRR :rem 201 

73 POKEV+24,15 :POKETT+54272,1 :POKETT,RR:POKEV+24,0:NEXTTT 

:rem 93 

75 FORI = 1T02000:NEXTI:CLR: GOTO! 4 95 :rem 146 

76 REM ******************************* ;rem 

77 REM * PREPARAZIONE DELLO SFONDO * : rem 

78 REM ******************************* :rem 

80 POKE53280,4:POKE53281 ,0 :PRINT"{CLR}":POKE6 50,1 28:L= 113 

7:L1=1128:L2 = 1121 :L3 = 1112 : rem 238 

81 Kl=l:K2=l:K3=l:K4=l:EX=4:PP=4:JJ=3:UY=1:MM=1396:PU=0 


103 
11 1 
1 05 


: rem 28 

82 PRINTTAB(14) ;"{ 7 GIU'}PRIMO QUADRO":FORTY=1TOl 000 :NEX 

TTY:PRINT"{CLR}":Q=54272:POKEl 943,80 : rem 203 

83 POKEl 943+54272,1 SPRINT"{HOME}{ 40 SPAZI}" : rem 21 

84 PRINT"{HOME}{WHT} {RVS}BASI{OFF}:";PP;"{HOME}";TAB(9); 

"{RVS}RECORD{OFF} :"; RE ;" {HOME}";TAB( 2 6 ) ; " {RVS}PUNTI 
{OFF}:";PU : rem 115 

87 FORT=1 064TOl103 :POKET,67:POKET+54272,6 :NEXTT : rem 139 

89 FORT= 1 984TO202 3 :POKET,80 :POKET+54 2 72,2:NEXTT :rem 145 

90 FORY= 1 TO50:N=INT(841*RND(1))+1 :K=N+1 1 01 :rem 167 
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91 

POKER,46:POKEK+54272,1 

: rem 

1 86 

92 

NEXTY 

: rem 

3 

93 ' 

WW=1:Fl=87:F2=107:F3=115:C2=5 

: rem 

20 

96 

REM *********************** 

: rem 

25 

97 

REM * POSIZIONE CANNONE * 

: rem 

1 06 

98 

REM *********************** 

: rem 

27 

1 00 

P=1964 

: rem 

242 

1 05 

IFP<1945THENP=1945 

: rem 

19 

1 06 

IFP>1 982THENP = 1 982 

: rem 

24 

1 1 0 

POKEP,113 :POKEP+54272,7 :POKEP-1,C:POKEP+l 

,C1:POKEP-1+ 


54272,7:POKEP+1+54272,7 

: rem 

1 68 

1 1 5 

GOSUBl700 

: rem 

223 

116 

REM ******************* 

: rem 

1 54 

1 1 7 

REM * INPUT COMANDI * 

: rem 

92 

1 1 8 

REM ******************* 

: rem 

1 56 

1 30 

IFPEEK(56321)=239THENGOSUB950:GOTOl15 

: rem 

204 

1 40 

IFPEEK(56321)=251THENPOKEP,32 :POKEP-1,32: 

POKEP+1, 

32 : P 


=P-1:GOT0105 

: rem 

1 23 

1 50 

IFPEEK(56321)=247THENPOKEP,32 :POKEP + 1 ,32 : 

POKEP-1 , 

32 : P 


=P+1:GOTOl05 

: rem 

1 27 

1 60 

GOTOl15 

: rem 

103 

945 

REM ************************ 

: rem 

1 1 8 

946 

REM * LANCIO DEL MISSILE * 

: rem 

1 24 

947 

REM ************************ 

: rem 

1 20 

950 

S=54272 

: rem 

50 

951 

FORI=STOS + 2 4 :POKEI,0 :NEXT 

: rem 

1 09 

952 

POKES+24,143 

: rem 

1 1 9 

953 

FR=50000 

: rem 

1 07 

954 

A=0:DD=8:S C ? = 1 5:RU=8 

: rem 

96 

955 

W=64:PS=1024 

: rem 

1 30 

956 

GOSUBl700 

: rem 

236 

957 

POKES + 1 ,INT(FR/256) 

: rem 

79 

958 

POKES,FR-2 56 *INT(FR/256) 

: rem 

1 28 

959 

POKES+3,INT(PS/256) 

: rem 

94 

960 

POKES+2,PS-2 56*INT(PS/2 56) 

: rem 

236 

961 

POKES+5,16*A+DD 

: rem 

51 

962 

POKES+6,16*SS+RU 

: rem 

1 85 

963 

GOSUBl700 

: rem 

234 

964 

POKES+15,75 

: rem 

78 

965 

POKES+4,W+3 

: rem 

1 02 

966 

FORI = 1T02 5 

: rem 

77 

967 

POKES+15,120-4*1 

: rem 

76 

968 

NEXTI 

: rem 

47 

969 

POKES + 4 ,W 

: rem 

1 2 

975 

GOSUB1.700 

: rem 

237 


98 5 D = P-40:F0RT=1TOl9:FORRL=lTOl0 :NEXTRL:POKED,32 

: rem 126 

990 AA=PEEK(D — 40) :IFAA=4 6THEND = D-4 0:T=T+1 :GOTO990 

: rem 179 

995 D=D-40:IFD=LTHENGG=1:GOSUB2000 : rem 58 

996 IFD=LlTHENGG=2:GOSUB2 000 : rem 221 
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997 IFD=L2THENGG=3:GOSUB2000 :rem 224 

998 IFD=L3THENGG=4:GOSUB2000 :rem 227 

999 POKED,66 :POKED+54272,2 :NEXTT:POKED, 32 : RETURN : rem 21 

1000 DATA22,9,19,9,20,15,18,19,2,25,14,15,18,13,1,14,13,9 

,12,1,19,9 : rem 237 

1010 DATA40,3,41 , 32,16,18,15,4,21 , 26,9,15, 14,5,32,19,15,6 
,20,23,1,18,5,32,40,18,3 :rem 137 

1 020 DATA41 : rem 66 

1495 REM ************************ :rem 167 

1496 REM * SCELTA DEL CANNONE * :rem 159 

1497 REM ************************ ;r em 169 

1 498 FORJ=1T02000:NEXTJ:POKE53280,7 :POKE53281 , 7:POKE646,0 

:PRINT"{CLR}" : rem 61 

1499 PRINT"{DES}{ 2 GIU'}VUOI LE ISTRUZIONI (S/N)" 

:rem 252 

1 500 GETR$: IFR$ = ""THEN1 500 :rem 209 

1501 IFR$ = "S"THENGOSUBl 4500 : rem 73 

1 504 POKE532 80,2 :POKE53281 ,0 :FORF=lTOl000 :NEXTF:PRINT" 

{CLR}":FORY=lTO500:NEXTY : rem 169 

1 505 PRINT" {RVS} { 2 GIU'HWHT} (C) { 6 SPAZI}SCEGLI IL CAN 
NONCINO{ 6 SPAZI}(C) " :rem 47 

1510 PRINT"{HOME}{ 6 GIU'}{ 2 DES}{WHT}1){YEL}{ 5 SPAZI} 

[<£>] [<E>] [<£>] { 5 SPAZI}{GRN}BASE ALPHA" : rem 232 

1520 PRINT"{ 2 GIU'H 2 DES}{WHT}2){YEL}{ 5 SPAZI}[<I>] 

[ <E>] [ <I>] { 5 SPAZI}{GRN}IPERSPAZIO" : rem 12 

1530 PRINT"{ 2 GlU 1 }{ 2 DES}{WHT}3){YEL}{ 5 SPAZI}U[<E>] 
l{ 5 SPAZI} {GRN}SUPERLASER" : rem 104 

1540 PRINT"{ 2 GlU 1 }{ 2 DES}{WHT}4){YEL}{ 5 SPAZI}[<A>] 

[<E>] [ <S>] { 5 SPAZI}{GRN}DEFENDER" : rem 97 

1 545 POKEl98,0 : rem 252 

1 550 GETS$:IFS$ = ""THENl 550 : rem 221 


1 555 

1 560 
1 570 
1 580 
1 590 
1 600 
1 699 
1 700 
1 701 
1 71 0 
1 71 1 
1 71 5 
1 71 6 
1 71 7 
1 71 8 

1 71 9 


IFS$<>"1 "ANDS$<>"2"ANDS$<>"3"ANDS$<>"4"THENi 550 

: rem 


IFS$ = "1"THENC=104:C1=104 
IFS$="2"THENC=98:C1=98 
IFS$="3"THENC=85:C1=73 
IFS$ = "4"THENC = 112:C1=110 
GOTO80 

REM ******************** 

REM * EXTRATERRESTRI * 

REM ******************** 

IFKl=1THENPOKEL,32:POKEL-l,32:POKEL+l,32 
IFK2 = 1THENPOKELl- 1,32:POKELl+l,32:POKELl,32 
IFK3 = 1THENPOKEL2 > 32 :POKEL2-1,32:POKEL2 + l,32 
IFK4 = 1THENPOKEL3,32 :POKEL3-1,32:POKEL3 + l,32 
L=L+WW: Li=Ll+WW:L2=L2+WW:L3=L3+WW 
IFL+1>1941THENAB=1:EX=EX-1:GOSUB5000:GOSUB4035 

: rem 

IFLl+1>1941THENAB=2:EX=EX-1:GOSUB5000:GOSUB4035 

: rem 


: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 


11 2 
72 
2 

249 
74 
1 04 
5 

72 
245 
1 95 

88 

96 

101 

98 

73 
1 24 
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1 72 0 IFL2 + 1>1941THENAB = 3:EX = EX-1 :GOSUB5000:GOSUB40 35 

: rem 118 

1721 IFL3+1>1941THENAB=4:EX=EX-1:GOSUB5000:GOSUB4035 

: rem 121 

1 722 IFKl<>1THENi 72 4 : rem 127 

1723 GOSUB7000:POKEL,Fi:POKEL-l,F2:POKEL+l,F3:POKEL+54272 
,C2 :POKEL-1+54272,C2:POKEL+1+Q,C2 :rem 111 

1 724 IFK2<>1THENl 727 : rem 133 

1 725 GOSUB700 5 :POKELl ,Fl :POKELl-l,F2:POKELl+l ,F3:POKELl+Q 
,C2 :POKEL1 -1+Q,C2:POKELl+1+Q,C2 :rem 54 

1 727 IFK301THEN1 732 :rem 133 

1 730 GOSUB7010:POKEL2,Fl :POKEL2-l,F2:POKEL2 + l ,F3:POKEL2+Q 
,C2:POKEL2-1+Q ,C2:POKEL2 + 1+Q ,C 2 : rem 52 

1 732 IFK401THEN1 996 :rem 142 

1 735 GOSUB7015:POKEL3,Fl :POKEL3-l,F2:POKEL3 + l ,F3:POKEL3+Q 



,C2 :POKEL3-1+Q,C2:POKEL3+1 +Q,C2 

: rem 

68 

1 996 

RETURN 

: rem 

1 85 

1 997 

REM **************** 

: rem 

94 

1 998 

REM * ESPLOSIONE * 

: rem 

20 

1 999 

REM **************** 

: rem 

96 

2000 

S=54272 

: rem 

86 

2005 

FORI=STOS + 2 4 :POKEI,0 :NEXT 

: rem 

149 

201 0 

POKES + 2 4,15 

: rem 

1 04 

201 5 

FR=500 

: rem 

50 

2020 

A=0:DD=0:SS=15:R=0 

: rem 

29 

2023 

IFBB<>2THENMN=7:NN=3 

: rem 

1 0 

2025 

W=128 :PS=1024 

: rem 

21 7 

2030 

POKES+1,INT(FR/256) 

: rem 

1 1 1 

2035 

POKES,FR-2 56*INT(FR/2 56) 

: rem 

1 64 

2040 

POKES+3,INT(PS/256) 

: rem 

125 

2045 

POKES + 2,PS-256*INT(PS/2 56) 

: rem 

24 

2050 

POKES+5,16 *A+DD 

: rem 

90 

2055 

POKES+6,16*SS+R 

: rem 

1 43 

2060 

POKES+4,W+l 

: rem 

1 36 

2065 

FORF=MNTOlSTEP-1 

: rem 

64 

2070 

FR=FR+100 

: rem 

242 

2075 

IFI<NNTHENPOKES + 2 4,1/5 

: rem 

1 53 

2080 

F5 = INT(FR/2 56) :F6 = FR-2 56*F5 

: rem 

28 

2081 

POKES,F6:POKES + l ,F5 

: rem 

1 80 

2082 

NEXTF 

: rem 

81 

2085 

IFBB=1THENBB = 0:FORR=lTO50:NEXTR:POKES + 4,W:GOTO504 0 



: rem 

254 

2090 

IFBB=2THENBB=0:POKES+4,W:RETURN 

: rem 

37 

2092 

IFGG=1THENPOKEL-1,32 :POKEL,32 :POKEL+1 

,32 :rem 

21 7 

2093 

IFGG = 1THENPOKEL> 87 :POKEL+54272,4 : FORI 

=1TO500:NEXTI 



: rem 

1 80 

2094 

IFGG = 1THENPOKEL,32 : FORI = 1TO50:NEXTI:POKEL,81 :POKEL+5 


4272,2 

: rem 

1 95 

2095 

IFGG=1THENFORI = lTO500:NEXTI:POKEL,32 : 

Kl=0:L=0:EX 

= EX- 


1 

: rem 

1 41 

3000 

IFGG=2THENPOKELl-1,32:POKELl,32 :POKELl +1 ,32 : rem 

99 
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3004 

IFGG=2THENPOKELl ,87 :POKELl+54272,4 : FORI = 1TO500: NEXTI 




: rem 

1 6 

3006 

IFGG=2THENPOKELl,32:FORI=lTO50:NEXTI: 

POKELl 

,81:POKEL 


1+54272,2 


: rem 

81 

3008 

IFGG=2THENFORI=lTO500:NEXTI:POKELl,32 

:K2 = 0 : 

Li =0 : 

: EX=E 


X-l 


: rem 

236 

301 0 

IFGG = 3THENPOKEL2-1,32:POKEL2,32 :POKEL2 + 1,32 

: rem 

104 

301 2 

IFGG=3THENPOKEL2 > 87 :POKEL2 + 54 272,4:FORI = lTO500:NEXTI 




: rem 

1 8 

301 4 

IFGG=3THENPOKEL2,32:FORI=lTO50:NEXTI: 

POKEL2 

, 81 : POKEL 


2+54272,2 


: rem 

84 

301 6 

IFGG=3THENFORI=1TO500:NEXTI:POKEL2,32 

:K3=0 : 

L2 = 0 : 

: EX=E 


X-l 


: rem 

239 

301 8 

IFGG = 4THENPOKEL3-1,32 :POKEL3,32 :POKEL3 + 1 ,32 

: rem 

11 6 

3020 

IFGG=4THENPOKEL3,87 :POKEL3 + 54272,4:FORI = lTO500 :NEXTI 




: rem 

20 

3022 

IFGG = 4THENPOKEL3,32 : FORI = 1TO50:NEXTI: 

POKEL3 

,81 :POKEL 


3+54272,2 


: rem 

87 

3024 

IFGG=4THENFORI=lTO500:NEXTI:POKEL3,32 

:K4 = 0 : 

L3 = 0 

: EX=E 


X-l 


: rem 

242 

3099 

POKES+4,W 


: rem 

57 

4000 

REM *************** 


: rem 

30 

401 0 

REM * PUNTEGGIO * 


: rem 

1 75 

401 5 

REM *************** 


: rem 

36 

4020 

PU=PU+50 


: rem 

221 

4025 

PRINT"{HOME}{ 40 SPAZI}" 


: rem 

1 75 

4030 

PRINT"{HOME}{WHT} {RVS}BASI{OFF}:";PP 

;"{HOME}";TAB(9 


) {RVS}RECORD{OFF}:"; RE;"{HOME}";TAB(26) 

{RVS}PUNT 


I{OFF}:";PU 


: rem 

206 

4 035 

IFEX=0THENJJ=JJ-1:GOSUB6000 


: rem 

21 5 

4037 

IFJJ = 0THENGOSUB70 50 


: rem 

21 7 

4040 

RETURN 


: rem 

1 68 

5000 

REM ***************************** 


: rem 

107 

5005 

REM * DISTRUZIONE DEL CANNONE * 


: rem 

57 

501 0 

REM ***************************** 


: rem 

1 08 

501 5 

IFAB=1THENK1=0 


: rem 

99 

5020 

IFAB=2THENK2=0 


: rem 

97 

5025 

IFAB=3THENK3=0 


: rem 

1 04 

5030 

IFAB = 4THENK4 = 0 


: rem 

1 02 

5035 

BB=1:GOTO2000 


: rem 

244 

5040 

POKEP,32 :POKEP-1,32:POKEP + l , 32 


: rem 

39 

5045 

POKEP,87:POKEP + 54272,4 : FORI = 1TO50 0:NEXTI:POKEP, 

32 :FO 


RI=1TO50:NEXTI 


: rem 

238 

5050 

POKEP,81 :POKEP+542 72,2 : FORI = 1TO500:NEXTI:POKEP, 

32 : P= 


1964:PP=PP-1 


: rem 

240 

5053 

PRINT"{HOME}{DES}{RVS}BASI{OFF}:";PP 


: rem 

1 66 

5055 

IFPP=0THENGOSUBl4000 


: rem 

1 5 

5057 

POKEP,113:POKEP+54272,7:POKEP-1,C:POKEP+l,Cl:POKEP-1 


+54272,7:POKEP+l+54272,7 


: rem 

231 

5060 

RETURN 


: rem 

1 71 

6000 

L=1137:Ll=1128:L2=1121:L3=1112 


: rem 

80 
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6001 

Kl=1 :K2 = l:K3 = 1:K4 = 1:EX=4 

: rem 

107 

6002 

FORTR=l 064TO1 942 :IFPEEK(TR)=46THENPOKETR,32 

: : rem 

241 

6003 

NEXTTR 

: rem 

1 74 

6005 

FORY=lTO50:N=INT(841*RND(1))+1 :K=N+1101 

: rem 

9 

601 0 

POKER,46 :POKEK+54272,1 

: rem 

23 

6015 

NEXTY 

: rem 

1 00 

6020 

RETURN 

: rem 

1 68 

7000 

IFPEEK(L+2)=4 6THENPU=PU-3 

: rem 

50 

7005 

IFPEEK(Li+2)=4 6THENPU=PU-3 

: rem 

104 

701 0 

IFPEEK(L2+2)=46THENPU=PU-3 

: rem 

1 01 

7015 

IFPEEK(L3+2)=46THENPU=PU-3 

: rem 

1 07 

7025 

RETURN 

: rem 

1 74 

7050 

IFUY=1THENGOSUB8000:RETURN 

: rem 

8 

7055 

IFUY=2THENGOSUB9000: RETURN 

: rem 

1 5 

7060 

IFUY=3THENGOSUBl0000:RETURN 

: rem 

52 

7063 

IFUY=4THENl1000 

: rem 

1 59 

8000 

REM ******************** 

: rem 

244 

8005 

REM * SECONDO SCHEMA * 

: rem 

1 93 

801 0 

rem ******************** 

: rem 

245 

801 5 

L=1137:Ll=1128:L2=1121:L3=1112 

: rem 

88 

8020 

Kl=1 :K2 = l :K3 = l:K4 = 1:EX=4 

: rem 

1 1 0 

8021 

PRINT"{HOME}";TAB(14);"{ 7 GIU'}{WHT}BONUS 

500”: 

FORJ 


=1TOl000:NEXTJ:PU=PU+500 

: rem 

1 5 

8022 

PRINT"{HOME}";TAB(13);"{ 7 GIU'}{GRN}SECONDO QUADRO" 


:FORJ=lTOl000:NEXTJ 

: rem 

98 

8023 

FORTR=l 064TO1 942 zPOKETR,32 

: rem 

1 1 7 

8024 

NEXTTR 

: rem 

1 79 

8025 

FORY=1TO50:N=INT(841*RND(1))+1:K=N+1101 

: rem 

13 

8030 

POKER,46:POKEK+54272,1 

: rem 

27 

8035 

NEXTY 

: rem 

1 04 

8037 

FORT=1 064TO1103 :POKET,67 :POKET+54272,6 :NEXTT 




: rem 

238 

8040 

WW=2:Fl=81:F2=85:F3=73:C2=2:EX=4:JJ=3:UY=2 

: rem 

241 

8050 

RETURN 

: rem 

173 

9000 

rem ****************** 

: rem 

161 

9005 

REM * TERZO SCHEMA * 

: rem 

75 

901 0 

rem ****************** 

: rem 

162 

901 5 

L=1137:LI=1128:L2=1121:L3=1112 

: rem 

89 

9020 

Kl=1:K2=1:K3=l:K4=1:EX=4 

: rem 

1 1 1 

9021 

PRINT"{HOME}";TAB(14);"{ 7 GIU'}{WHT}BONUS 

1 000" 

: FOR 


J = 1TOl000 :NEXTJ:PU=PU+1 000:PP=PP+1 

: rem 

123 

9022 

PRINT"{HOME}";TAB(14);"{ 7 GlU'}{GRN}TERZO 

QUADRO”:F 


ORJ=lTOl 000 :NEXTJ 

: rem 

237 

9023 

FORTR=l 064 TO1 942:POKETR,32 

: rem 

1 1 8 

9024 

NEXTTR 

: rem 

1 80 

9025 

FORY=1TO50:N = INT(841*RND(1))+1 :K=N+1101 

: rem 

14 

9030 

POKER,46:POKEK+54272,1 

: rem 

28 

9035 

NEXTY 

: rem 

105 

9037 

FORT=1 064TO1103 :POKET,67 :POKET+54272,6 :NEXTT 




: rem 

239 
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9040 WW=4:F1=241:F2=255:F3=127:C2=4:EX=4:JJ=3:UY=3 


9050 RETURN 

1 0000 REM *************-****** 

10005 REM * QUARTO SCHEMA * 

10010 REM ******************* 

10015 L=1137:Ll=1128:L2=1121:L3=1112 
1 0020 K1=1 :K2 = l :K3 = l :K4 = l:EX=4 


: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 


1 32 
1 74 

243 
1 87 

244 
1 29 
1 51 


10021 PRINT"{HOME}";TAB(14);"{ 7 GIU'}{WHT}BONUS 1500":FO 


1 54 


92 
1 58 
220 
54 
68 
1 45 


88 
21 4 

244 
1 92 

245 


RJ = 1TOT 000:NEXTJ:PU=PU+1 500 : rem 154 

10022 PRINT”{HOME}";TAB(13){ 7 GIU'}{GRN}QUARTO 

{ 2 SPAZI}QUADRO":FORJ = lTOl 000:NEXTJ : rem 92 

1 0023 FORTR=l 064TO1 942 :POKETR,32 :rem 158 

1 0024 NEXTTR : rem 220 

10025 FORY=lTO50:N=INT(841*RND(1))+1:K=N+1101 :rem 54 

1 0030 POKEK,46 :POKEK+54272,1 : rem 68 

1 003 5 NEXTY : rem 14 5 

10037 FORT=1 064TO1103:POKET,67:POKET+54272,6 :NEXTT 

: rem 2 3 

10040 WW=6:Fl=87:F2=95:F3=105:C2=7:EX=4:JJ=3:UY=4 

:rem 88 

1 0050 RETURN : rem 214 

11000 REM ******************* :rem 244 

1 1 005 REM * QUINTO SCHEMA * : rem 192 

11010 REM ******************* :rem 245 

11015 PRINT"{HOME}";TAB(14);"{ 7 GIU'}{WHT}BONUS 2000":FO 
RJ = 1TOl 000 :NEXTJ:PU=PU+2000:PP=PP+2 :rem 170 

11017 FORT=1 064T01103 :POKET,67 :POKET+54272,6 :NEXTT 

:rem 22 

1 1 020 MM=1 396 :FORTR=1 024T02023 :POKETR,32 :NEXTTR :rem 146 

1 1 025 PRINT"{HOME}{ 7 GIU'}{ 3 SPAZI}{GRN}BENE ! SEI GIUNT 

O ALLA PROVA FINALE{ 3 SPAZI}":FORJ=lTOl000:NEXTJ 

: rem 181 

11030 PRINT"{HOME}";TAB(15);"{ 10 GIU'}{RED}IL{ 2 SPAZI} 
MOSTRO":FORJ=lTOl 000:NEXTJ : rem 96 

11040 REM ************************** :rem 30 

1 1 04 5 REM * CREAZIONE DEL MOSTRO * : rem 140 

11050 REM ************************** :rem 31 

11055 PRINT"{CLR}{WHT} {RVS}BASI{OFF}:";PP;"{HOME}";TAB(9 
) ;"{RVS}RECORD{OFF}:"; RE;"{HOME}";TAB(26) ;"{RVS}PUN 
TI{OFF}:";PU : rem 131 

1 1 057 FORT=l 064TO1103:POKET f 67 :POKET+54272,6 :NEXTT 

:rem 26 

1 1060 FORJ = l194T01212STEP3:POKEJ,100:NEXTJ : rem 64 

1 1 065 FORJ=1 1 95T01210STEP3:POKEJ,85:NEXTJ : rem 32 

1 1 070 FORJ=1196TOl211STEP3:POKEJ, 73 :NEXTJ : rem 27 

1 1 075 POKEl 234,1 01 :POKEl 252,1 03 :POKEl 2 74,77:POKEl 275,78:P 
OKE1292,78:P0KE1291,77 :rem 238 

1 1 080 FORJ=1 276TOl 290 :POKEJ,99 :NEXTJ : rem 187 

1 1085 POKEl315,101 :POKEl 331 , 1 03 :POKEl 355,77 :POKEl371,78 

: rem 72 
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1 1 090 

F0RJ=1356T01370:POKEJ,100:NEXTJ 


: rem 

21 7 

1 1 095 

POKEl395,103:POKEl411,101 


: rem 

1 75 

n i oo 

FORJ=1436T01450:POKEJ,99:NEXTJ 


: rem 

176 

11105 

PRINT"{HOME}";TAB(12);"{ 7 GIU' 

}{CYN}SUPER COMMODOR 


E" 


: rem 

1 07 

imo 

FORT=1 984TO2023 :POKET,80 :POKET+54272,2 :NEXTT 





: rem 

20 

11115 

REM *********************** 


: rem 

1 63 

11120 

REM * POSIZIONE CANNONE * 


: rem 

239 

11125 

REM *********************** 


: rem 

1 64 

11130 

P=1964:TI$="000000" 


: rem 

243 

11140 

IFPC1 94 5THENP=1945 


: rem 

1 1 6 

11145 

IFP>1982THENP=1982 


: rem 

125 

1 1 1 50 

POKEP,113 :POKEP + 54 272,7 :POKEP-1 

,C:POKEP+1 

,C1:POKEP- 


1+54272,7:POKEP+1+54272,7 


: rem 

1 4 

11155 

GOSUBl3000 


: rem 

113 

11157 

REM ******************* 


: rem 

1 

11160 

REM * INPUT COMANDI * 


: rem 

1 88 

11165 

REM ******************* 


: rem 

0 

11170 

IFPEEK(56321)=2 39THENGOSUB1 2000 

:GOTOl1155 

: rem 

237 

11175 

IFPEEK (56321 )=251 THENPOKEP,32 :POKEP-1,32 : 

POKEP+1 

,32 


: P=P-1 :GOTOl1140 

• 

: rem 

70 

11180 

IFPEEK(56321 )=247THENPOKEP,32:POKEP + l,32 : 

POKEP-1 

,32 


:P=P+1:GOTOl1140 


: rem • 

69 

11185 

GOTOl1155 


: rem 

54 

1 2000 

S=54272 


: rem 

1 35 

1 2005 

FORI=STOS+24:POKEI,0:NEXT 


: rem 

1 98 

1 201 0 

POKES+24,143 


: rem 

203 

1 201 5 

FR=50000 


: rem 

1 95 

1 2020 

OO 

II 

M 

• • 

in 

il 

U) 

Uì 

•• 

co 

II 

Q 

Q 

•• 

o 

il 

< 


: rem 

167 

1 2025 

W=64 :PS=1024 


: rem 

21 7 

1 2030 

GOSUBl3000 


: rem 

106 

1 2035 

POKES+1 ,INT(FR/2 56) 


: rem 

1 65 

1 2040 

POKES,FR-2 56*INT(FR/2 56) 


: rem 

209 

1 2045 

POKES+3,INT(PS/256) 


: rem 

1 79 

1 2050 

POKES+2,PS-256*INT(PS/256) 


: rem 

69 

1 2055 

POKES+5,16*A+DD 


: rem 

1 44 

1 2060 

POKES+6,16*SS+RI 


: rem 

5 

1 2065 

GOSUBl3000 


2 rem 

11 4 

1 2070 

POKES+15,75 


: rem 

165 

1 2075 

POKES+4,W+3 


: rem 

1 93 

1 2080 

FORI = 1T02 5 


: rem 

163 

1 2085 

POKES+15,120-4*1 


2 rem 

1 66 

1 2090 

NEXTI 


2 rem 

132 

1 2095 

POKES+4,W 


2 rem 

101 

1 21 00 

GOSUBl3000 


2 rem 

104 

1 21 05 

D = P-4 0 :FORT=1TOl3:FORRL=lTOl0 :NEXTRL:POKED,32 


• 



2 rem 

203 

12115 

D=D-40:IFD=MMTHENGOSUBl 3500 


2 rem 

220 

1 21 20 

POKED,66 :POKED+54272,2 :NEXTT:POKED,32 :RETURN 





2 rem 

96 
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1 3000 
1 3005 
1 301 0 
1 301 1 
1 301 2 

1 301 5 
1 301 6 
1 301 7 
1 3020 
1 3025 
1 3499 
1 3500 
1 3501 
1 351 0 
1 3600 

1 3699 
1 3700 
1 3701 
1 3705 
1 3706 

1 3707 
1 371 0 

1 371 5 


1 3720 


1 3725 

1 3726 

1 3730 

1 3740 
1 3745 
1 3750 
1 3755 

1 4000 
1 401 0 

1 4020 


1 4030 
1 4040 


REM ***************************** :rem 154 
REM * MOVIMENTO DELLA PALLINA * :rem 82 
REM ***************************** :rem 155 
PRINT"{HOME}{DES}{ 3 GIU'}{GRN}TIME :";TI$:rem 173 
IFTI$="000005"THENGOSUB5000:PRINT"{HOME}{DES}{WHT}B 


ASI:";PP:TI$="000000" 


: rem 

1 1 3 

IFMM>1407THENPOKEMM,32:MM=1396 


: rem 

1 54 

POKEMM,32 


: rem 

85 

MM=MM+3 


: rem 

203 

POKEMM,81 :POKEMM+54 2 72,7 


: rem 

233 

RETURN 


: rem 

21 9 

REM **************************** 


: rem 

134 

REM * DISTRUZIONE DEL MOSTRO * 


: rem 

74 

REM **************************** 


: rem 

118 

BB=2:MN = 2 00 :NN=4 5 :GOSUB2000 


: rem 

1 37 

FORJ =1194T01450:POKEJ,32:FORT=lTO50:NEXTT: 

NEXTJ 




: rem 

99 

REM ********************** 


: rem 

140 

REM * SCHERMATA FINALE * 


: rem 

1 22 

REM ********************** 


: rem 

124 

FORY=1TOl000:NEXTY 


: rem 

228 

PRINT”{CLR}";TAB(14);"{ 7 GIU'}{WHT}BONUS 

1 0000 

" : PU 

= PU+1 0000:FORJ=lTOl 000 :NEXTJ 


: rem 

1 25 

FORY=1TOPP:PU=PU+5000:NEXTY 


: rem 

1 1 8 

PRINT"{CLR}":POKE53280,7:POKE53281,7:POKE646,0 




: rem 

98 

PRINT"{ 2 DES}{ 2 GIU'jBRAVO !{ 2 SPAZI}SEI RIUSCIT 

O A SCONFIGGERE IL{ 2 SPAZI}SIGNORE DELLE 

TENEBRE" 



: rem 

1 60 

PRINT"{ 2 DES}{ 2 GIU'}EGLI SCOMPARIRÀ' 

PER SEMPRE 

E LA TERRA{ 2 SPAZI}NON DOVRÀ' PIU' TEMER 

NULLA 

11 



: rem 

2 

PRINT"{ 2 DES}PERCHE' POTRÀ' CONTARE SU 

DI 

TE” 




: rem 

1 1 4 

PRINT"{ 2 DES}{ 2 GIU'}HAI TOTALIZZATO 

";PU;" PUNTI 

":IFPU>RETHENRE=PU:PU=0 


: rem 

141 

PRINT"{ 7 GIU'}{ 2 DES}VUOI COMPIERE UN 

' ALTRA 

MISS 

IONE (S/N)" 


: rem 

221 

GETK$:IFK$=""THENl3740 


: rem 

53 

IFK$ < >"S"ANDK$ <>"N"THENl 374 0 


: rem 

1 43 

IFK$ = "S"THENl495 


: rem 

21 2 

IFK$="N"THENPRINT"{CLR}{ 2 DES}{ 3 GIU' 

}ARRIVEDERCI 

ALLA PROSSIMA MISSIONE !!!":END 


: rem 

101 

FORY=lTOl000:NEXTY:PRINT"{CLR}":POKE646 

,1 

: rem 

221 

PRINT"{ 2 DES}{ 2 GIU'}HAI FALLITO LA TUA 

MISSIONE 

1 " 

• 


: rem 

255 

PRINT"{ 2 DES}{ 2 GIU’}IL SIGNORE DELLE 

TENEBRE 

HA 

VINTO{ 7 SPAZI}QUESTA BATTAGLIA MA"; 


: rem 

1 21 

PRINT" LA GUERRA CONTINUA" 


: rem 

125 

GOTO!3726 


: rem 

53 
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1 4500 
1 4505 
1 451 0 
1 451.5 
1 4520 
1 4525 

1 4530 

1 4533 
1 4535 

1 4540 

1 4545 
1 4550 
1 4555 


POKE53280,0:POKE53281 ,0:POKE646,1 :PRINT"{CLR}" 

: rem 83 

PRINT"{ 2 DES}{GIU'}IL SIGNORE DELLE TENEBRE HA INV 
ASO LA{ 3 SPAZI}TERRA !" : rem 183 

PRINT"{ 2 DES}{GIU'}TU SEI STATO SCELTO PER SALVARL 
A " : rem 51 

PRINT"{ 2 DES}{GIU'JDOVRAI AFFRONTARE LA SUA FLOTTA 
ED{ 6 SPAZI}INFINE DISTRUGGERE LA SUA"; : rem 65 
PRINT" FORTEZZA{ 6 SPAZI}VOLANTE, COLPENDOLA NEL SU 
O PUNTO DEBO{ 2 SPAZI}LE" : rem 127 

PRINT"{ 2 DES}{GIU'}GLI INVASORI DISTRUGGERANNO LE 
STELLE{ 3 SPAZI}CHE INCONTRERANNO SUL LORO"; 

: rem 5 

PRINT" CAMMINO.{ 5 SPAZl}PER OGNI STELLA DISTRUTTA 


TI SARANNO{ 4 SPAZI}TOLTI TRE"; 

: rem 

254 

PRINT" PUNTI" 

: rem 

97 

PRINT"{GIU'}{ 2 DES}{RVS}BUONA FORTUNA ! 

! !{OFF} 

II 


: rem 

1 85 

PRINT"{ 2 DES}{ 2 GIU'}PREMI SPAZIO PER 

CONTINUARE" 


: rem 

93 

GETRR$: IFRR$ = ""THENi 4 54 5 

: rem 

239 

IFRR$<>" "THENl 454 5 

: rem 

70 

IFRR$ = " "THENRETURN 

: rem 

235 


n 

K One on One! 2 Joystick 


Ecco una variopinta versione di 
uno dei più classici videogames, 
che molti di voi sicuramente cono¬ 
sceranno.- due giocatori, entrambi 
forniti di joystick, spostano la pro¬ 
pria racchetta a destra e a sinistra 
disputando una specie di partita a 


ping pong. Alle spalle dei giocatori 
ci sono dei muri; quando non si 
riesce ad intercettare la palla, que¬ 
sta va a demolire parte del muro. 
Risulta vincitore colui il quale per 
primo riesce a perforare il muro av¬ 
versario. 


i o 
20 
30 

40 

50 

60 


REM ONE ON ONE PER CBM-64 

POKE532 81 , 0:POKE532 80,9:POKE64 6,1 

PRINT"{RVS}{CLR}{ 13 DES}{ 10 GIU'} ONE ON 

II 

PRINT"{RVS}{ 7 DES}{ 3 GIU'}PREMI LA BARRA 
{OFF}"; 

IFPEEK ( 1 97) 060THEN50 
GOTO3 3 0 


:rem 246 
:rem 38 
ONE!! {OFF} 
:rem 49 
PER GIOCARE 
: rem 101 
:rem 127 
:rem 53 
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70 AL=15:GOTO160 

: rem 

161 

80 OL=AL 

: rem 

205 

90 AL=AL+F2:IFAL=OLTHENl50 

: rem 

86 

1 00 

IFAL<4THENAL=3 

: rem 

73 

1 1 0 

POKEG+OL,32:POKEG+OL+1 ,32 :POKEG+OL+2,32 :POKEG+OL+3 

,32 



: rem 

1 39 

1 20 

IFAL>=33THENAL=33 

: rem 

239 

1 30 

POKEG+AL,228:POKEG+AL+l , 228 :POKEG+AL+2,228 : 

POKEG+AL+3 


,228 

: rem 

49 

1 40 

POKEG+AL+D,7 :POKEG+AL+D+1 ,7 :POKEG+AL+2+D,7 : 

POKEG+AL+3 


+D, 7 

: rem 

90 

1 50 

RETURN 

: rem 

118 

1 60 

ON((PEEK(56321)ANDl2)/4)GOTO!70,180,190 

: rem 

66 

1 70 

F2=3:GOTO80 

: rem 

91 

1 80 

F2=-3:GOTO80 

: rem 

137 

1 90 

F2=0:GOTO80 

: rem 

90 

200 

GOTO290 

: rem 

1 02 

21 0 

OG=AR 

: rem 

249 

220 

AR=AR+Fl:IFAR=OGTHEN280 

: rem 

1 45 

230 

IFAR<4THENAR=3 

: rem 

89 

240 

POKEF+OG,32:POKEF+OG+l,32 :POKEF+OG+2,32 :POKEF+OG+3 

,32 



: rem 

1 1 9 

250 

IFAR>=33THENAR=33 

: rem 

255 

260 

POKEF+AR, 227:POKEF+AR+l,227 :POKEF+AR+2,227 : 

POKEF+AR+3 


,227 

: rem 

69 

270 

POKEF+AR+D,7 :POKEF+AR+D+1 ,7 :POKEF+AR+2+D,7 : 

POKEF+AR+3 


+D, 7 

: rem 

1 1 4 

280 

RETURN 

: rem 

1 22 

290 

ON((PEEK(5632 0)ANDl2)/4)GOTO300,31 0,32 0 

: rem 

54 

300 

Fi=3:GOT0210 

: rem 

1 28 

31 0 

Fi=-3:GOT0210 

: rem 

1 74 

320 

FI=0:GOT0210 

: rem 

1 27 

330 

B=1026:E=1060:D=54272:POKE53281,1:POKE53280 

,1 :PRINT" 


{CLR}";:C=1 226 :F=1 260 

: rem 

1 49 

340 

F=1 02 4+40*6:SCR=1 024:G=1 024+4 0*1 4 :POKE64 6,9 

: rem 

7 

3 50 

PRINT"{ 14 DES}GIOCATORE 2" 

: rem 

206 

360 

PRINT"{ 19 GIU'H 14 DES} GIOCATORE l{HOME}" 

: rem 

36 

370 

POKE646,1 :FORL=1T04:B = B + 40 :E = E+40 

: rem 

1 46 

380 

FORI=BTOE:POKEl,160:POKEl+D,(8*RND(1))+2:NEXT 




: rem 

227 

390 

NEXT:IFZ=1THEN410 

: rem 

48 

400 

B=1 626:E = 1 660 :Z = 1:GOTO370 

: rem 

1-22 

41 0 

FORS = l 024TO1 837STEP40 :POKES,127:POKES+3 7,1 27:POKES+D, 


0 :POKES + 37+D,0 :NEXT 

: rem 

1 58 


420 FORS = 1 02 5TO1 837STEP4 0:POKES, 127 :POKES + 37,1 27:POKES+D, 
0 :POKES+37+D,0:NEXT : rem 160 

430 REM SCHERMO & BORDO : rem 40 

440 FORC=lTO30STEP4:POKEl 4 28+C,90 :POKEl 428+C+D,0:NEXT 

:rem 203 

450 POKEG+1 5,228:POKEG+1 5 + 1 , 228:POKEG+1 5 + 2,228 :POKEG+15 + 3 


, 228 


: rem 154 
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460 

POKEG+15+D,7 :POKEG+15+D+l,7:POKEG+l5+D+2,7 

:POKEG+15+D 


+ 3,7 

: rem 

1 95 

470 

POKEF+15,227:POKEF+15+1,227:POKEF+l5+2,227 

:POKEF+15+3 


,227 

: rem 

1 48 

480 

POKEF+15+D,7 :POKEF+15+D+l ,7:POKEF+l5+D+2,7 

:POKEF+15+D 


+ 3,7 

: rem 

1 93 

490 

Y=1 1 :DX= 1 :DY= 1 :X=1 1 

: rem 

79 

500 

IFRND(1)<.5THENDX=-1 

: rem 

1 43 

51 0 

IFRND(1)<.5THENDY=- 1 

: rem 

145 

520 

AR=15 :AL= 1 5 

: rem 

55 

530 

POKE1 024+X+40*Y,32 :POKEl 024+X+40*Y+D,0 

: rem 

68 

540 

X=X+DX:Y=Y+DY:POKEl024+X+40*Y,81:POKEl024+X+40*Y+D,8 



: rem 

48 

550 

IFL=160ANDOD=160THEN570 

: rem 

78 

560 

IFL=160THENDY=-DY:GOSUB640 

: rem 

1 1 3 

570 

GOSUB200 rGOSUBl60 :IFY=0ORY=23THEN660 

: rem 

245 

580 

OD = L 

: rem 

1 85 

590 

L=PEEK(SCR+X+DX+(Y+DY)*40) 

: rem 

250 

600 

IFL=32THEN530 

: rem 

21 8 

61 0 

IFL=127THENDX=-DX:GOSUB640:GOTO590 

: rem 

1 27 

620 

IFL=228ORL=227ORL=90THENDY=-DY:GOSUB640 

: rem 

203 

630 

GOTO530 

: rem 

1 06 

640 

S=54272:FORQ=STOS+24:POKEQ,0:NEXT:POKES+5, 

88 :POKES + 24 


,15 :POKES+1,10 

: rem 

1 30 

650 

POKES,14 3 :FORRD=1TO50:NEXT:RETURN 

: rem 

161 

660 

POKE646,0 

: rem 

1 99 

670 

IFY<1THENPRINT"{ 9 GIU'}{ 8 DES}{RVS}HA VINTO 



{ 2 SPAZI}IL GIOCATORE 1{OFF}":GOT0690 

: rem 

1 65 

680 

IFY>22THENPRINT"{ 9 GIU'}{ 8 DES}{RVS}HA VINTO 



{ 2 SPAZI}IL GIOCATORE 2{OFF}":GOT0690 

: rem 

220 

690 

PRINT"{ 11 GIU'}{ 10 DES}{RVS}GIOCHI ANCORA? (S/N) 



{OFF}" 

: rem 

1 84 

700 

IFPEEK(197)=13THEN730 

: rem 

1 67 

71 0 

IFPEEK(197)=39THEN740 

: rem 

1 77 

720 

GOTO700 

: rem 

1 05 

730 

IFPEEK(197)=13THENPOKE646,1:RUN 

: rem 

1 07 

740 

POKEl98,0 :PRINT"{CLR}": END 

: rem 

119 


A 

O* 

£ Autostrada alfabetica 


Questo originalissimo sioco preve¬ 
de l'uso del joystick. Si tratta di aiu¬ 
tare tutte le lettere dell'alfabeto ad 
attraversare una caotica strada, 


evitando loro di essere investite 
dai numerosi autotreni che sfrec¬ 
ciano velocissimi. Appena avete 
effettuato il percorso con un carat- 
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tere, correte veloci a prendere II 
successivo e così via. 

Si gioca a 5 diversi livelli di difficol¬ 
tà,il livello di partenza viene sele¬ 
zionato all’inizio della partita, e re¬ 


gola la velocità dei camion. Il gioco 
prosegue finché una lettera non 
viene investita, oppure fino al 
completamento del quinto livello. 


10 REM STRADA ALFABETICA 



: rem 

1 92 

20 POKE53281 , 0 :POKE53280,0 :PRINT" 

{CLR}{YEL}" 

: rem 

243 

30 V=53248 



: rem 

252 

40 POKEV+21,0 



: rem 

21 1 

50 AV=PEEK(V+30) 



: rem 

1 47 

60 POKE2040,14 



: rem 

236 

70 POKEV+39,1 



: rem 

224 

80 REM INPUT LIVELLO 



: rem 

243 

90 PRINT"LIVELLO (1/5) ?" 



: rem 

1 1 8 

1 00 

GETL$ 



: rem 

225 

1 1 0 

IFL$ >"5"ORL$ <"1"THENl 00 



: rem 

202 

1 20 

TI$="000000":L=VAL(L$):PRINT" 

{CLR} " 

: rem 

250 

1 30 

REM DEFINISCE LO SPRITE 0 



: rem 

164 

1 40 

FORI=0TO62:READQ 



: rem 

228 

1 50 

POKE83 2 + 1 ,Q:NEXTI 



2 rem 

21 

1 60 

FORI=0TO62 :POKE896 + 1,0 :NEXTI 



2 rem 

225 

1 70 

POKE53281,6:POKE53280,6:REM COLORI 

2 rem 

223 

1 80 

REM SCHERMO 



2 rem 

1 42 

1 90 

PRINT"{CLR}{YEL}{ 4 SPAZI}{RVS} 

AUTOSTRADA 

ALFABETICA 


II 



2 rem 

98 

200 

PRINT"{GIU'}{ 10 SPAZI}LIVELLO: 


2 rem 

76 

21 0 

PRINT"{BLK}{ 3 GIU'H 2 SPAZI}ABCDEFGHIJKLMNOPQRSTUVW 


XYZ" 



2 rem 

6 

220 

FORI=1TOl4 



2 rem 

58 

230 

PRINT"{RVS}{ 30 SPAZI}" 



2 rem 

1 20 

240 

NEXTI 



2 rem 

30 

250 

PRINT"{ 15 SU}{ 2 DES}"; 



2 rem 

92 

260 

REM IN IZIALIZZA SPRITES 1-7 



2 rem 

1 37 

270 

FORI=1T07 



2 rem 

1 7 

280 

POKE204 0 + 1, 1 3 



2 rem 

1 47 

290 

POKEV+2*1,240 



2 rem 

1 78 

300 

POKEV+2*1+1,93+16*1 



2 rem 

225 

31 0 

POKEV+39+I,2*1-1 



2 rem 

83 

320 

NEXTI 



2 rem 

29 

330 

POKEV+4 2,2 



2 rem 

1 0 

340 

POKEV+21,254 



2 rem 

1 1 3 

350 

FORI = 1TO 2 6 : REM PROGRAMMA PRINCIPALE 

2 rem 

236 

360 

POKE5633 4,PEEK(563 34)AND254 : REM 

DEFINISCE 

I CARATTERI 





2 rem 

1 1 4 

370 

POKEl,PEEK(1)AND251 



2 rem 

56 

380 

FORJ=0TO7 



2 rem 

1 9 

390 

POKE896+3*J,PEEK(53248+1*8+J) 



2 rem 

55 

400 

NEXTJ 



2 rem 

29 

41 0 

POKEl,PEEK(1)OR4 



2 rem 

1 57 
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420 

POKE56334,PEEK(56334)ORI 

: rem 

67 

430 

POKEV,32+1*8 

: rem 

131 

440 

POKEV+1,98 

: rem 

22 

450 

POKEV+21,255 

: rem 

1 1 6 

460 

FORAV=1T02 50 :NEXTAV 

: rem 

208 

470 

PRINT" {SIN}{ 1 5 GIU'}"; 

: rem 

67 

480 

REM GIOCO 

: rem 

241 

490 

FORK=1T07 

: rem 

23 

500 

JO=PEEK(56321) 

: rem 

226 

510 

IFNOTJOANDlANDPEEK(V+l)>98THENPOKEV+l,PEEK(V+l)-2 




: rem 

32 

520 

IFNOTJOAND2THENPOKEV+1,PEEK(V+l)+2 

: rem 

118 

530 

X=PEEK(V+2*K)-5*L*RND(1)-10-1/2 

: rem 

1 52 

540 

IFX< 0THENX=X+240 

: rem 

201 

550 

POKEV+2*K,X 

: rem 

1 1 7 

560 

IFPEEK(V+30)AND!THENPRINT"{ 2 GlU'}{CYN}INCIDENTE 

ili" 
• • • 


:GOSUB7 90 :GOTO700 

: rem 

1 63 

570 

IFPEEK(V+l)=21 8 GOTO 6 OO 

: rem 

250 

580 

NEXTK 

: rem 

39 

590 

GOTO490 

: rem 

1 1 6 

600 

FORAV=1T02 50 :NEXTAV 

: rem 

204 

61 0 

REM CARATTERI SUCCESSIVI 

: rem 

27 

620 

PRINTCHR?(64+1);"{ 15 SU}"; 

: rem 

1 42 

630 

POKEV+21,254 

: rem 

1 1 5 

640 

NEXTI 

: rem 

34 

650 

REM FINE 

: rem 

1 61 

660 

POKEV+21,0 :PRINT"{CLR}{CYN}CONGRATULAZIONI ! 

M : rem 

226 

670 

FORAV=lT02000 :NEXTAV 

: rem 

254 

680 

IFL< 5THENL=L+1 :BN=BN+L-1:GOT0190 

: rem 

1 95 

690 

PRINT"{ 2 GIU'}HAI COMPLETATO IL LIVELLO PIU' DIFFICI 


LE ! I " 

: rem 

222 

700 

PRINT"{ 3 GIU' }{WHT}IL TUO PUNTEGGIO E ' ";INT( ((BN 

*26 + 


( I- 1 ) *L) *1E5)/TI) 

: rem 

1 92 

71 0 

GETAV$:IFAV$<>""THEN710 

: rem 

60 

720 

PRINT"{GIU'}GIOCHI ANCORA? (S/N)"; 

: rem 

1 25 

730 

GETA$ 

: rem 

223 

740 

IFA$=""THEN730 

: rem 

21 7 

750 

IFA$ ="S"THENRUN 

: rem 

136 

760 

IFA$ <>"N"THEN7 30 

: rem 

102 

770 

POKEV+21,0:PRINT"{CLR}" 

: rem 

171 

780 

END 

: rem 

11 8 

790 

FORAV=lT02000:NEXTAV:POKEV+21 ,0 :PRINT"{CLR} 

": RETURN 



: rem 

98 

800 

DATA0,0,0,0,15,254,0,15,254,0,15,254,0,127, 

254 




: rem 

162 

81 0 

DATA0,159,254,0,159,254,0,255,254,0,240,0,0 

,255,254 



: rem 

179 

820 

DATA0,124,124,0,56,56,0,0,0,0,0,0,0,0,0 

: rem 

48 

830 

DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

: rem 

1 
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Investigatore 


a 

*© 

u 


In una città dell'Ohio, negli Stati 
Uniti, alcune persone ancora sco¬ 
nosciute hanno organizzato un 
traffico di auto rubate, cambiando 
le targhe delle stesse con targhe 
false. 

Mentre la polizia svolge le indagini 
per scoprire chi ha rubato e chi 
vende le auto rubate, voi, un inve¬ 
stigatore privato, cercate di trova¬ 
re le auto rubate, per sequestrarle, 
in modo che nessuno le compri. 
Perciò ti sei messo con la tua auto 
nera di fianco a una strada princi¬ 
pale della tua città, ad osservare le 
macchine che passano. 

La cittadina è molto piccola e vi 
passano solo le poche macchine 
dei cittadini, delle quali avete i nu¬ 
meri di targa segnati su un foglio. 
Dall'altra parte della strada avete 
piazzato due auto della polizia, 
che possono attuare un blocco 
stradale al vostro comando, e spa¬ 
rare all'auto che, dopo essersi ac¬ 
corta dell'agguato, cambia conti¬ 
nuamente la sua direzione per non 
essere presa. 

Per attuare un blocco stradale bi¬ 
sogna premere A o Z, e per far 
sparare l'auto in alto dovete pre¬ 
mere A mentre per far sparare 
quella in basso dovete premere Z. 
La possibilità di creare un blocco 
stradale è utile quando si sospetta 
che un’auto abbia la targa diversa 
da quella presente sulla tabella 
che viene mostrata all'inizio del 


gioco e che è possibile rivedere in 
ogni momento premendo il tasto 
D. 

Le possibilità, dopo aver creato un 
blocco stradale sono 3: 

V se colpite, sparando, l’auto in 
fuga ed essa ha una targa falsa ri¬ 
cevete un punto per aver trovato 
un 'auto rubata. 

2) se colpite l’auto in fuga ma essa 
ha una targa autentica, cioè uguale 
a quella presente sulla tabella, per¬ 
dete un punto. 

3) se, o perché vi siete accorti che 
la targa è effettivamente autentica 
Ce non avete sparato) o perché 
non siete riusciti a colpire l’auto in 
fuga, l’auto compie due passaggi 
sullo schermo, il computer vi dirà 
se la targa è vera o falsa, ma non 
riceverete alcun punteggio. 

I tipi di automezzi sono sei: 

L’auto bianca 

L ’auto rossa 
L'auto blu 

II camion bianco 
Il camion rosso 
Il camion blu 

Nella tabella mostrata all'inizio del 
gioco ognuna di queste scritte por¬ 
ta, di fianco, la targa autentica di 
quell’automezzo. 

Durante il gioco, al passaggio di un 
mezzo, la targa del mezzo stesso 
(che può anche essere falsa) viene 
mostrata sotto la strada. 

Se notate che la targa mostrata al 
passaggio del mezzo è diversa da 
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quella vista nella tabella potete an¬ 
che tranquillamente attuare un 
blocco stradale e fermare l’auto 
sospetta. 

Ogni volta che attuate un blocco 
stradale, qualsiasi esito abbia, tut¬ 
te le targhe vengono cambiate, e 
mostrate nella relativa tabella. 

Il trucco per fare punti in questo 


gioco è cercare di ricordarsi tutte 
le targhe dei sei tipi di automezzi 
(anche se ci vuole un pò di allena¬ 
mento per riuscirci). 

Ogni volta che si richiama la tabel¬ 
la premendo il tasto D, l’auto in 
passaggio cambia. 

Ed ora buon divertimento e buona 
caccia alle targhe false! 


30 POKE53280,2 :POKE53281 , 1 2:POKE53272,21 : rem 232 

40 DIMV$(6) ,C (6) ,P(6) ,VM$(6) : rem 178 

50 HO$ =CHR$(19) :CL$=CHR$(147) :CG$=CHR$(151) :CU$=CHR$(145) 

:CD$=CHR$(17) :rem 58 

60 BL$ =CHR$(144) :YE$=CHR$(158) :WH$=CHR$(5) :RD$=CHR$(28) :B 


U$ =CHR$(31 ) : rem 255 
70 Ri$=CHR$(18):R0$=CHR$(146) : rem 16 
80 Si=54273:S2=54272:VL=54296:WV=54276:AD=54277:REM VARIA 


BILI DEI SUONI 

: rem 

147 

90 Ml$ = "BRAVO, AVEVA UNA TARGA FALSA! 1 11 

: rem 

1 61 

1 00 

RO$ = "":FORK=1T02 0 :RO$ =RO$ +CHR$(185) :NEXT 

: rem 

75 

1 1 0 

V=53248:POKEV+21,31:REM ABILITA GLI SPRITE 

: rem 

207 

1 20 

POKE2040,1 3 :POKE2041 , 1 92 :FORK=2TC>4 :POKE2040+K, 1 3:NEXT 


: REM AREE DEI DATI-SPRITE 

: rem 

1 63 

1 30 

GOSUBl100 

: rem 

21 4 

1 40 

DEFFNR(MAX)=INT(RND(1)*MAX+1 ) 

: rem 

204 

1 50 

C (1)=1 :P(1)=0:C(2)=2:P(2)=0:C<3)=6:P(3) =0: 

sc=o 




: rem 

87 

1 60 

FORI = lT03:C(1 + 3)=C(I) :P(I + 3)=1 :NEXT 

: rem 

3 

1 70 

GOSUB610 

: rem 

1 75 

1 80 

REM 

: rem 

1 25 

1 90 

REM DISEGNA LA STRADA E GLI OGGETTI PRESENTI SULLO 

» SC 


HERMO 

: rem 

3 

200 

REM 

: rem 

1 1 8 

210 

POKE532 81 , 5 :PRINTCL$;WH$; 

: rem 

21 7 

220 

FORK=1TOl0 :PRINTCD$; :NEXT 

: rem 

94 

230 

FORK=l1T05:PRINTCHR$(152) ; Ri $ ;"{ 40 SPAZI} 

:NEXT 




: rem 

4 

240 

PRINTRO$ 

: rem 

232 

250 

GOSUB7 90 

: rem 

1 83 

260 

MX=0 

: rem 

1 70 

270 

CL=0:S = 2:X=30:Y=60:GOSUBl 4 80 

s rem 

1 28 

280 

CL=0:S=3:X=30:Y=85:GOSUBl480 

: rem 

1 37 

290 

CL=0:S = 4:X=3 0:Y=200 :GOSUBl4 80 

: rem 

1 76 

300 

PRINTHO$; :FORK=lTOl 8:PRINTCD$;:NEXT 

: rem 

34 

31 0 

PRINTWH$;"PREMI 'A' O 'Z' PER UN POSTO DI 

BLOCCO"' 




: rem 

1 96 

320 

PRINT:PRINTTAB(20);"PUNTI ";STR$(SC) 

: rem 

1 93 

330 

REM 

: rem 

1 22 
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340 

REM FA CORRERE LE MACCHINE SULLA STRADA 

: rem 

29 

350 

REM 

: rem 

1 24 

360 

MX=0 

: rem 

1 71 

370 

J=FNR(6) 

: rem 

1 42 

380 

FORI=30TO320STEP5 

: rem 

20 

390 

PRINTHO$;:FORII = lTOl6:PRINTCD$;:NEXT:PRINTWH$; Ri $ 

; TAB 


(16) ; VM$ ( J) 

: rem 

67 

400 

CL=C(J):S = P(J):Y=1 38 

: rem 

95 

410 

GETI$:IFI$ = ""THENX=I :GOSUBl 480:GOTO440 

: rem 

56 

420 

IFI$ ="D"THENGOSUB610:GOTO210 

: rem 

1 63 

430 

GOTO470 

: rem 

107 

440 

NEXT 

: rem 

21 5 

450 

Y=250:GOSUBl480 

: rem 

77 

460 

GOTO370 

: rem 

109 

470 

GOSUB860 

: rem 

1 85 

480 

REM 

: rem 

1 28 

490 

REM MESSAGGIO FINALE E SIRENA DELLA POLIZIA : rem 

80 

500 

REM 

: rem 

1 21 

51 0 

GOSUBl540 

: rem 

224 

520 

PRINTCG$; 

: rem 

1 3 

530 

PRINTHO$;:FORJJ = lT021 :PRINTCD$; :NEXT 

: rem 

1 06 

540 

IFEN=1AND(VN$ =VM$(A)ORVN$=VM$(BB) )THENSC=SC+1 :PRINT:P 


RINTMl$:GOTO580 

: rem 

33 

550 

IFEN=1THENPRINT:PRINT"LA TARGA ERA GIUSTA! 

I ! !":SC 

= SC- 


1 :GOTO580 

: rem 

39 

560 

IFVN$ =VM$(A)ORVN$ =VM$(BB)THENPRINT :PRINT"AVEVA LA 

TAR 


GA FALSA.:GOT0580 

: rem 

1 

570 

PRINT:PRINT"AVEVA LA TARGA VERA" 

: rem 

209 

580 

POKEl98,0 

: rem 

202 

590 

PRINT"PREMI RETURN{’8 SPAZI}"; :INPUTRB?:GOTOl70 




: rem 

1 48 

600 

REM 

: rem 

1 22 

61 0 

REM SUBROUTINE DI PARTENZA 

: rem 

1 25 

620 

FORS = 0TO4:Y = 2 9 :GOSUBl 480 :NEXT 

: rem 

81 

630 

PRINTCL$;CG$; 

: rem 

253 

640 

FORI=1T06 

: rem 

1 7 

650 

V$(I)=CHR$(64+FNR(26))+CHR$(64+FNR(26))+CHR$(64+FNR(2 


6) ) 

: rem 

21 2 

660 

FORK=lT03:V$(I)=V$(I)+RIGHT?(STR$(FNR(10)- 

1),1):NEXT 


• 

: rem 

9 

670 

V$(I) =v$ (I)+CHR$(64+FNR(26)) 

: rem 

1 79 

680 

NEXT 

: rem 

221 

690 

PRINT: PRINT" { 11 SPAZ I } LISTA DELLE TARGHE" 

: PRINT: 

PRI N 


T 

: rem 

99 

700 

PRINT:PRINTTAB(11);CG$;"AUTO BIANCA{ 3 SPAZI}";V$(1) 



: rem 

235 

71 0 

PRINT:PRINTTAB(11);RD$;"AUTO ROSSA{ 4 SPAZI}";V$(2) 



: rem 

227 

720 

PRINT:PRINTTAB(11);BU$;"AUTO BLU{ 6 SPAZI} 

V$(3) 




: rem 

65 
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730 

PRINT:PRINTTAB(11);CG$;"CAMION BIANCO 

11 ; v$ ( 4) 




: rem 

1 25 

740 

PRINT:PRINTTAB(11);RD$;"CAMION ROSSO{ 

2 SPAZI}";V$(5) 



: rem 

1 1 7 

750 

PRINTrPRINTTAB(11);BU$;"CAMION BLU{ 4 

SPAZI}";V$( 6 ) 



: rem 

1 97 

760 

PRINT:PRINT:PRINTCG?;"'C' PER CONTINUARE." : rem 

1 31 

770 

GETRB$:IFRB$=""THENGOTO770 

: rem 

62 

780 

RETURN 

: rem 

1 27 

790 

REM SUBROUTINE CHE SCAMBIA LE AUTO 

: rem 

30 

800 

A=FNR( 6 ) :BB = FNR( 6 ) :IFBB = A THENGOTO800 

: rem 

1 82 

81 0 

FORI=1T06 

: rem 

1 6 

820 

VM$(I)=V$(I) 

: rem 

76 

830 

NEXTI 

: rem 

35 

840 

WK$ =VM$(A) :VM$(A) =VM$(BB) :VM$(BB)=WK$ 

: rem 

61 

850 

RETURN 

: rem 

1 25 

860 

REM SUBROUTINE DI CACCIA 

: rem 

1 79 

870 

CL=C(J):VT=P(J):VN$=VM$(J) 

: rem 

246 

880 

X=24:MX=0:Y=130:GS=0:EN=0 

: rem 

1 98 

890 

GETI$ 

: rem 

238 

900 

IF1$ = "A"THENRD = 2:GOSUBl030 

: rem 

9 

91 0 

IFI$ = "Z"THENRD=5 rGOSUBl03 0 

: rem 

38 

920 

IFEN=1THENGOTOl020 

: rem 

86 

93 0 

S=VT:GOSUBl480 

: rem 

93 

940 

GETI$ 

: rem 

234 

950 

IFI$ = "A"THENRD = 2 rGOSUBl030 

: rem 

1 4 

960 

IFI$="Z"THENRD=5rGOSUBl030 

: rem 

43 

970 

X=X+10 :IFX> = 2 55THENX=X-2 55 :MX=MX+2 tVT 

: rem 

92 

980 

IFMX>0ANDX> 8 5THENMX=0:X= 2 4 

: rem 

1 43 

990 

Y=Y- ( (-1) tFNR(2) )*INT(20*RND(1))-5 :IFY< 30THENY=130 



: rem 

89 

1 000 

IFY>130THENY=130 

: rem 

21 2 

1 01 0 

GS=GS+1:IFGS<50THENGOTO890 

: rem 

1 56 

1 020 

RETURN 

: rem 

1 63 

1 030 

REM SUBROUTINE DI BLOCCO STRADALE 

: rem 

71 

1 040 

PRINTHO$; :FORJJ=1TORD:PRINTCD$; :NEXT 

: rem 

202 

1 050 

PRINTRD$;TAB(5);RO$ 

2 rem 

1 65 

1 060 

PRINTCU?;TAB(5);"{ 20 SPAZI}" 

2 rem 

39 

1 070 

IFRD=2AND(Y>55ANDY< 65)THENEN=1 

2 rem 

1 32 

1 080 

IFRD= 5AND(Y>80ANDY< 90)THENEN=1 

2 rem 

1 32 

1 090 

RETURN 

2 rem 

1 70 

1 1 00 

REM SUBROUTINE DI LETTURA DATI SPRITE : rem 

93 

ino 

RESTORE 

2 rem 

231 

1 1 20 

FORSS=13TOl92STEP179 

2 rem 

1 4 

1 1 30 

FORS=0TO62 

2 rem 

1 1 9 

1 1 40 

READ SP 

2 rem 

1 33 

1 1 50 

POKESS*64+S,SP 

2 rem 

1 25 

1 1 60 

NEXT:NEXT 

2 rem 

1 28 

1 1 70 

GOTO!470 

2 rem 

206 

1 1 80 

DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

o 

o 

•b 

o 

•k 

o 

o 

o 

0,0 



2 rem 

88 


30 



1 1 90 

DATAO,127,128 

: rem 

1 b 2 

1 200 

DATAO,255,192 

: rem 

1 57 

1 21 0 

DATAI,128,96 

: rem 

1 1 3 

1 220 

DATA3,0,48 

: rem 

6 

1 230 

DATA63,255,255 

: rem 

21 7 

1 240 

DATA63,255,255 

: rem 

21 8 

1 250 

DATA63,255,255 

: rem 

21 9 

1 260 

DATA 6 3,2 55, 2 55 

: rem 

220 

1 270 

DATA3,192,30 

: rem 

no 

1 280 

DATAI,128,12 

: rem 

1 08 

1 290 

DATAO,0,0,0,0,0,0,0,0 

: rem 

246 

1 300 

REM 

: rem 

1 68 

1 31 0 

DATAO,0,0,0,0,0,0,0,0,0,0,0 

: rem 

3 

1 320 

DATA255,252,0 

: rem 

1 57 

1 330 

DATA255,252,0 

: rem 

1 58 

1 340 

DATA255,252,0 

: rem 

1 59 

1 350 

DATA255,252,0 

: rem 

1 60 

1 360 

DATA255, 255,1 28 

: rem 

1 5 

1 370 

DATA255, 255, 1 92 

: rem 

1 7 

1 380 

DATA255,252,96 

: rem 

226 

1 390 

DATA2 55,252,48 

: rem 

224 

1 400 

DATA2 55,255,255 

: rem 

1 1 

1 41 0 

DATA2 55,255,255 

: rem 

1 2 

1 420 

DATA2 55,255,255 

: rem 

1 3 

1 430 

DATA255,255, 255 

2 rem 

1 4 

1 440 

DATA3,192,30 

2 rem 

1 09 

1 450 

DATAI,128,12 

2 rem 

1 07 

1 460 

DATAO,0,0,0,0,0,0,0,0 

2 rem 

245 

1 470 

RETURN 

2 rem 

1 72 

1 480 

REM SUBROUTINE PER LA POSIZIONE DEGLI 

SPRITE 




2 rem 

49 

1 490 

POKEV+39+S,CL 

2 rem 

35 

1 500 

MX=0:IFX>2 55THENMX=MX+2 fS:X=X-255 

2 rem 

1 35 

1 51 0 

POKEV+2 *S,X :POKEV+16,MX 

2 rem 

204 

1 520 

POKEV+2 *S + 1 ,Y 

2 rem 

8 

1 530 

RETURN 

2 rem 

1 69 

1 540 

REM SUBROUTINE DEL SUONO DELLA SIRENA 

2 rem 

75 

1 550 

POKEVL,15 :POKEAD,190:POKEWV,33 

2 rem 

1 38 

1 560 

FORK=1T04 

2 rem 

67 

1 570 

POKES1 ,38 :POKES2,126:FORT=1T0300:NEXT 

2 rem 

92 

1 580 

POKES1,34:POKES2,75:FORT=lT0300:NEXT 

2 rem 

44 

1 590 

NEXTK 

2 rem 

89 

1 600 

POKEWV,0 :POKEAD,0 

2 rem 

73 

1 61 0 

RETURN 

2 rem 

1 68 


31 

















